home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iproj / ques2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  5.5 KB  |  192 lines
  1. VERSION 2.00
  2. Begin Form QUES2 
  3.    BackColor       =   &H00800080&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Question 2"
  6.    ClientHeight    =   3420
  7.    ClientLeft      =   1695
  8.    ClientTop       =   1425
  9.    ClientWidth     =   6030
  10.    ClipControls    =   0   'False
  11.    ForeColor       =   &H00FFFFFF&
  12.    Height          =   3825
  13.    Left            =   1635
  14.    MaxButton       =   0   'False
  15.    MDIChild        =   -1  'True
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   3420
  18.    ScaleWidth      =   6030
  19.    Top             =   1080
  20.    Width           =   6150
  21.    Begin CheckBox Check6 
  22.       BackColor       =   &H00800080&
  23.       Caption         =   "Powerpoint"
  24.       ForeColor       =   &H00FFFFFF&
  25.       Height          =   255
  26.       Left            =   3960
  27.       TabIndex        =   12
  28.       Top             =   720
  29.       Width           =   1815
  30.    End
  31.    Begin CheckBox Check7 
  32.       BackColor       =   &H00800080&
  33.       Caption         =   "Word"
  34.       ForeColor       =   &H00FFFFFF&
  35.       Height          =   255
  36.       Left            =   3960
  37.       TabIndex        =   11
  38.       Top             =   1080
  39.       Width           =   1815
  40.    End
  41.    Begin CheckBox Check8 
  42.       BackColor       =   &H00800080&
  43.       Caption         =   "Schedule+"
  44.       ForeColor       =   &H00FFFFFF&
  45.       Height          =   255
  46.       Left            =   3960
  47.       TabIndex        =   10
  48.       Top             =   1440
  49.       Width           =   1815
  50.    End
  51.    Begin CheckBox Check9 
  52.       BackColor       =   &H00800080&
  53.       Caption         =   "None"
  54.       ForeColor       =   &H00FFFFFF&
  55.       Height          =   255
  56.       Left            =   3960
  57.       TabIndex        =   9
  58.       Top             =   1800
  59.       Width           =   1815
  60.    End
  61.    Begin CheckBox Check10 
  62.       BackColor       =   &H00800080&
  63.       Caption         =   "Other"
  64.       ForeColor       =   &H00FFFFFF&
  65.       Height          =   255
  66.       Left            =   3960
  67.       TabIndex        =   8
  68.       Top             =   2160
  69.       Width           =   855
  70.    End
  71.    Begin CommandButton Command2 
  72.       Cancel          =   -1  'True
  73.       Caption         =   "Cancel"
  74.       Default         =   -1  'True
  75.       Height          =   495
  76.       Left            =   3240
  77.       TabIndex        =   7
  78.       Top             =   2640
  79.       Width           =   1695
  80.    End
  81.    Begin CommandButton Command1 
  82.       Caption         =   "Next Question ->"
  83.       Height          =   495
  84.       Left            =   1200
  85.       TabIndex        =   6
  86.       Top             =   2640
  87.       Width           =   1815
  88.    End
  89.    Begin CheckBox Check5 
  90.       BackColor       =   &H00800080&
  91.       Caption         =   "Nexis or other information databases"
  92.       ForeColor       =   &H00FFFFFF&
  93.       Height          =   255
  94.       Left            =   240
  95.       TabIndex        =   5
  96.       Top             =   2160
  97.       Width           =   3495
  98.    End
  99.    Begin CheckBox Check4 
  100.       BackColor       =   &H00800080&
  101.       Caption         =   "Electronic Mail"
  102.       ForeColor       =   &H00FFFFFF&
  103.       Height          =   255
  104.       Left            =   240
  105.       TabIndex        =   4
  106.       Top             =   1800
  107.       Width           =   1815
  108.    End
  109.    Begin CheckBox Check3 
  110.       BackColor       =   &H00800080&
  111.       Caption         =   "File manager"
  112.       ForeColor       =   &H00FFFFFF&
  113.       Height          =   255
  114.       Left            =   240
  115.       TabIndex        =   3
  116.       Top             =   1440
  117.       Width           =   1815
  118.    End
  119.    Begin CheckBox Check2 
  120.       BackColor       =   &H00800080&
  121.       Caption         =   "Excel"
  122.       ForeColor       =   &H00FFFFFF&
  123.       Height          =   255
  124.       Left            =   240
  125.       TabIndex        =   2
  126.       Top             =   1080
  127.       Width           =   1815
  128.    End
  129.    Begin CheckBox Check1 
  130.       BackColor       =   &H00800080&
  131.       Caption         =   "Contacts"
  132.       ForeColor       =   &H00FFFFFF&
  133.       Height          =   255
  134.       Left            =   240
  135.       TabIndex        =   1
  136.       Top             =   720
  137.       Width           =   1815
  138.    End
  139.    Begin Label Label1 
  140.       BackColor       =   &H00800080&
  141.       Caption         =   "Select each software package you used in January 1994"
  142.       ForeColor       =   &H00FFFFFF&
  143.       Height          =   255
  144.       Left            =   240
  145.       TabIndex        =   0
  146.       Top             =   240
  147.       Width           =   5295
  148.    End
  149. Sub Command1_Click ()
  150. question2 = ""
  151. If check1 = 1 Then
  152.     question2 = question2 + "1;"
  153. End If
  154. If check2 = 1 Then
  155.     question2 = question2 + "2;"
  156. End If
  157. If check3 = 1 Then
  158.     question2 = question2 + "3;"
  159. End If
  160. If check4 = 1 Then
  161.     question2 = question2 + "4;"
  162. End If
  163. If check5 = 1 Then
  164.     question2 = question2 + "5;"
  165. End If
  166. If check6 = 1 Then
  167.     question2 = question2 + "6;"
  168. End If
  169. If check7 = 1 Then
  170.     question2 = question2 + "7;"
  171. End If
  172. If check8 = 1 Then
  173.     question2 = question2 + "8;"
  174. End If
  175. If check9 = 1 Then
  176.     question2 = question2 + "9;"
  177. End If
  178. If check10 = 1 Then
  179.     question2 = question2 + "10;"
  180. End If
  181. If question2 <> "" Then
  182.     ques3.Show
  183.     MsgBox ("Please answer the current question before moving on!")
  184. End If
  185. End Sub
  186. Sub Command2_Click ()
  187.     response = MsgBox("Do you really want to close without sending in your responses?", 1, "Are you sure?")
  188.     If response = 1 Then
  189.         End
  190.     End If
  191. End Sub
  192.